home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / LOGO / 3530.ZIP / LADYBUG.ZIP / MAZE.BUG < prev    next >
Encoding:
Text File  |  1989-03-28  |  128 b   |  14 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "maze 
  8. if :x = 150 [ stop ]
  9. fd :x
  10. rt 90
  11. make "x :x + 5
  12. end
  13.  
  14.